HPAVC

home *** CD-ROM | disk | FTP | other *** search

/ HPAVC / HPAVC CD-ROM.iso / CP-AD#1.ZIP / ANSI.PPE (.txt) < prev next >

Wrap

PCBoard Programming Language Executable | 1997-02-22 | 4KB | 376 lines

;------------------------------------------------------------------------------ ; .ss. ; `²²' ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs. ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,. ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b. ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$ ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²' ; .sS²°$$$²²°"' d²°' ; .$$² .$$' ; $$$.,d$$' ; `²S$$S²' ;------------------------------------------------------------------------------ ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96 ;------------------------------------------------------------------------------ ; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON ;------------------------------------------------------------------------------ Boolean BOOLEAN001 Boolean BOOLEAN002 Integer INTEGER001 Integer INTEGER002 Integer INTEGER003 Integer INTEGER004 Integer INTEGER005 Integer INTEGER006 Integer INTEGER007 Integer INTEGER008 String STRING001 String STRING002 String STRING003 String STRING004 String STRING005 String STRING006 String STRING007 String STRING008 String STRING009 String STRING010 String STRING011 String STRING012 String STRING013 String STRING014 String STRING015 String STRING016 String STRING017 String STRING018 String STRING019 String STRING020 String STRING021 String STRING022 String STRING023 String STRING024 String STRING025 ;------------------------------------------------------------------------------ GetToken INTEGER001 FOpen 1, PPEPath() + "ANSI.CNF", 2, 0 FGet 1, INTEGER007 FGet 1, INTEGER008 FGet 1, INTEGER002 FGet 1, INTEGER003 FGet 1, INTEGER004 FGet 1, INTEGER005 FGet 1, STRING018 FGet 1, STRING019 FGet 1, STRING020 FGet 1, STRING021 FGet 1, INTEGER006 FGet 1, STRING001 FGet 1, STRING002 FGet 1, STRING016 FGet 1, STRING003 FGet 1, STRING004 FGet 1, STRING017 FGet 1, STRING006 FGet 1, STRING007 FGet 1, STRING005 FGet 1, STRING010 FGet 1, STRING008 FGet 1, STRING009 FGet 1, STRING012 FGet 1, STRING011 FGet 1, STRING013 FGet 1, STRING014 FGet 1, STRING022 FGet 1, STRING015 FGet 1, STRING024 FGet 1, STRING025 FGet 1, STRING023 FClose 1 Cls DispFile PPEPath() + "ANSI.PCB", 0 If (OnLocal()) Then BOOLEAN001 = 1 BOOLEAN002 = 1 Endif If (AnsiOn()) Then BOOLEAN001 = 1 Endif AnsiPos STRING006, STRING007 PrintLn STRING005 AnsiPos INTEGER002, INTEGER003 Print STRING001 AnsiPos STRING024, STRING025 Print STRING023 + "#" + "@NODE@" AnsiPos INTEGER007, INTEGER008 PrintLn "@X07:: @X08Detector by: cp^xPs@X07 ::" AnsiPos INTEGER004, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER004, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 1, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 1, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 2, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 2, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 3, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 3, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 4, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 4, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 5, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 5, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 6, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 6, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 7, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 7, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 8, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 8, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 9, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 9, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 10, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 10, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 11, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 11, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 12, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 12, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 13, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 13, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 14, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 14, INTEGER005 Print STRING016 Delay INTEGER006 AnsiPos INTEGER002 + 15, INTEGER005 Print STRING002 Delay 1 AnsiPos INTEGER002 + 15, INTEGER005 Print STRING016 AnsiPos STRING008, STRING009 If (BOOLEAN001) Then PrintLn STRING010 Else PrintLn "None" Endif AnsiPos 55, 14 AnsiPos STRING006, STRING007 PrintLn " " AnsiPos STRING006, STRING007 PrintLn STRING012 AnsiPos STRING018, STRING019 Print STRING003 AnsiPos INTEGER007, INTEGER008 PrintLn "@X07:: @X08Detector by: cp^xPs@X07 ::" AnsiPos STRING020, STRING021 Print STRING004 Delay 1 AnsiPos STRING020, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 1, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 1, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 2, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 2, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 3, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 3, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 4, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 4, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 5, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 5, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 6, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 6, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 7, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 7, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 8, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 8, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 9, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 9, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 10, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 10, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 11, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 11, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 12, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 12, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 13, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 13, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 14, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 14, STRING021 Print STRING017 Delay INTEGER006 AnsiPos STRING018 + 15, STRING021 Print STRING004 Delay 1 AnsiPos STRING018 + 15, STRING021 Print STRING017 AnsiPos STRING013, STRING014 If (BOOLEAN002) Then PrintLn STRING022 Else PrintLn STRING011 + "@CARRIER@" Endif AnsiPos STRING006, STRING007 PrintLn " " AnsiPos STRING006, STRING007 PrintLn STRING015 AnsiPos 32, 23 Print "@WAIT@" EndProc ;------------------------------------------------------------------------------ ; ; Usage report (before postprocessing) ; ; ■ Statements used : ; ; 1 Cls ; 6 Goto ; 3 Let ; 68 Print ; 11 PrintLn ; 4 If ; 1 DispFile ; 1 FOpen ; 1 FClose ; 32 FGet ; 62 Delay ; 1 GetToken ; 78 AnsiPos ; 1 EndProc ; ; ; ■ Functions used : ; ; 65 + ; 4 ! ; 2 PPEPath() ; 1 OnLocal() ; 1 AnsiOn() ; ;------------------------------------------------------------------------------ ; ; Analysis flags : No flag ; ;------------------------------------------------------------------------------ ; ; Postprocessing report ; ; 0 For/Next ; 0 While/EndWhile ; 4 If/Then or If/Then/Else ; 0 Select Case ; ;------------------------------------------------------------------------------ ; AEGiS Corp - Break the routines, code against the machines! ;------------------------------------------------------------------------------